10 REM UNPACKER 2000 DEMO
15 REM BY DENNIS HILDRETH
20 POKE56,32:CLR:POKE53371,0:POKE53281,0:POKE53280,0:PRINT"[147]"
30 DV=PEEK(186):IFDV<8THENDV=8
40 SYS57812"MOUSE2.1 JR 2000",DV,0:POKE780,0:POKE781,0:POKE782,32:SYS65493
45 ML=8192
50 M$="[204]OADING [213][206][208][193][195][203][197][210].99":GOSUB500
55 GOSUB600:IFA$="Q"THEN40000
60 SYS57812"UNPACKER.99",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
70 SYS51462,"WALLY.SHP",DV,224,204:SYS51459
75 SYSML+135,55296,56296,32568
80 GOSUB600
90 SYS51459
110 M$="[196]ISPLAYING PICTURE AGAIN":GOSUB500
120 GOSUB600:IFA$="Q"THEN40000
130 POKE252,224:POKE253,204:SYS51459:GOSUB600
135 SYS51459
140 M$="[205]ULTI-COLOR IS NOW TURNED ON":GOSUB500
150 GOSUB600:IFA$="Q"THEN40000
155 POKE252,224:POKE253,204
160 SYS51459:POKE53270,PEEK(53270)OR16
170 GOSUB600
180 SYS51459:POKE53270,PEEK(53270)AND239
190 M$="[195]OLOR [210][193][205] IS RESTORED":GOSUB500
200 GOSUB600:IFA$="Q"THEN40000
205 POKE252,224:POKE253,204:SYS51459
210 POKE53270,PEEK(53270)OR16:SYSML+135,32568,33568,55296
220 GOSUB600
230 SYS51459:POKE53270,PEEK(53270)AND239
240 M$="[204]OADING UNPACKER 2000":GOSUB500
250 GOSUB600:IFA$="Q"THEN40000
260 SYS57812"UNPACKER 2000 C9",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
270 SYS51462,"WALLY.SHP",DV,224,204,160
275 SYS51459:GOSUB600
280 SYS51459
290 M$="[196]ISPLAY PICTURE AGAIN":GOSUB500
300 GOSUB600:IFA$="Q"THEN40000
305 POKE252,224:POKE253,204:POKE254,160
310 SYS51459:GOSUB600
320 SYS51459
330 M$="[196]EMO IS OVER. [212]HANK YOU.":GOSUB700
340 GOSUB600:GOTO40000
500 SYSML+30,0,39,0,24,160,5:SYSML+30,5,34,5,19,160,2
510 PRINT"";:SYSML+30,6,33,10,14,160,6:SYSML+27,11,M$
520 SYSML+27,13,"[208]RESS ANY KEY.  [209] - QUIT"
550 RETURN
600 POKE198,0
610 GETA$:IFA$=""THEN610
620 RETURN
700 SYSML+30,0,39,0,24,160,5:SYSML+30,5,34,5,19,160,2
710 PRINT"";:SYSML+30,6,33,10,14,160,6:SYSML+27,11,M$
720 SYSML+27,13,"[193] - [193]GAIN   [209] - [209]UIT"
730 POKE198,0
740 SYSML+60,"AQ"
750 IFI%=1THENRUN
760 IFI%=2THEN40000
770 GOTO740
1000 END
10000 D=PEEK(186):N$="0:B.UNPACKER DEMO":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END